From: Simon Josefsson <jas@extundo.com>
Date: Thu, 21 Nov 2002 18:08:33 +0000 (+0000)
Subject: (morse-code): Add non-ASCII characters, according
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~29560
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=31e0103a505938053a7a7f3fb8fc1536d831a2ec;p=emacs.git

(morse-code): Add non-ASCII characters, according
to table at http://www.soton.ac.uk/~scp93ch/morse/.
---

diff --git a/lisp/play/morse.el b/lisp/play/morse.el
index db868de6325..e9ff8552cc2 100644
--- a/lisp/play/morse.el
+++ b/lisp/play/morse.el
@@ -1,6 +1,6 @@
-;;; morse.el --- convert text to morse code and back
+;;; morse.el --- convert text to morse code and back             -*- coding: utf-8 -*-
 
-;; Copyright (C) 1995 Free Software Foundation, Inc.
+;; Copyright (C) 1995, 2002 Free Software Foundation, Inc.
 
 ;; Author: Rick Farnbach <rick_farnbach@MENTORG.COM>
 ;; Keywords: games
@@ -76,7 +76,17 @@
 		     ("6" . "-....")
 		     ("7" . "--...")
 		     ("8" . "---..")
-		     ("9" . "----."))
+		     ("9" . "----.")
+		     ;; Non-ASCII
+		     ("Ä" . ".-.-")
+		     ("Á" . ".--.-")
+		     ("Å" . ".--.-")
+		     ;; ligature character?? ("Ch" . "----")
+		     ("ß" . ".../...")
+		     ("É" . "..-..")
+		     ("Ñ" . "--.--")
+		     ("Ö" . "---.")
+		     ("Ü" . "..--"))
   "Morse code character set.")
 
 ;;;###autoload